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ABSTRACT 


SPASTIC  76  is  an  vipdate  of  previously  reported  programs  written 
for  a minicomputer  to  permit  data  acquisition  with  a small-angle  X-ray 
diffractometer.  SPASTIC  denotes  System  for  Programming  Angles,  Scaler, 
and  Timer  by  Internal  Counting,  and  indicates  the  general  approach  used 
for  automation,  involving  a simple  interface  and  stepping  motor  control. 
The  present  programs  are  written  for  two  diffractometers  of  the  Bonse- 
Hart  and  the  Kratky  designs,  and  run  on  a PDP-8L  computer  with  8,192 
words  of  core  memory.  The  various  programs  include  routines  for  find- 
ing the  zero  position  and  integral  breadth  of  the  primary  beam,  and  for 
step-scanning  through  the  scattering  regions.  The  latter  routine  incor- 
porates integrations  for  the  Porod  invariant. 
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INTRODUCTION 


As  described  in  an  earlier  report,^  this  laboratory  has  developed  a 
computer-controlled  X-ray  diffraction  instrument  denoted  as  SPASTIC,  an 
acronym  for  System  for  Programming  Angles,  Scaler,  and  Timer  by  Internal 
Counting.  The  system  hardware  is  based  on  a PDP-8L  computer  interfaced 
to  four  stepping  motors  and  an  X-ray  shutter,  with  an  internal  data-break 
scaler  for  counting  X-ray  photons,  and  a timer  based  on  a crystal  clock 
interrupt.  The  original  system  was  used  to  control  an  Advanced  Metals 
Research  Model  6-220  Small  Angle  X-ray  Scattering  Diffractometer,  using 
motor  1 for  the  26  and  motor  2 for  the  attenuator  wheel.  Software  was 
developed  at  the  time  of  the  previous  report  to  perform  simple  control  and 
data-taking  operations,  accessing  the  hardware  through  a modification  of  the 
FOCAL  language  interpreter,  denoted  SPASTIC  71. 

The  present  report  is  an  update  prompted  by  several  developments  in  the 
interim:  (a)  the  addition  of  a Kratky-type  small -angle  X-ray  scattering 
diffractometer  and  (b)  expansion  of  the  computer  memory  from  4,096  to  8,192 
words,  allowing  for  more  complicated  programming.  The  26  drive  for  the 
Kratky  diffractometer  has  been  assigned  stepping  motor  number  3,  while  ninnber 
4 has  been  allocated  to  the  Norelco  wide-angle  diffractometer.  Software  for 
the  latter  has  not  been  implemented  -yt  this  time,  but  extensive  programs  have 
been  developed  for  the  Advanced  Metals  Research  (AMR)  and  Kratky  diffractometers. 
At  present,  however,  the  system  can  control  only  one  diffractometer  at  a time. 

The  instrument  to  be  used  is  selected  by  connecting  cables  from  the  computer 
interface  to  the  appropriate  shutter  control  and  X-ray  photon  pulse  jacks. 


SPASTIC-76  INTERPRETER 

Concurrent  with  the  hardware  changes,  improvements  have  been  made  in  the 
basic  machine- language  software,  now  called  SPASTIC  76.  The  hardware  functions 
have  been  given  new  names  Which  more  readily  denote  the  operation  each  function 
performs,  and  which  eliminate  ambiguities  in  the  earlier  language  (FADC,  FEXP, 
FRAN)  between  SPASTIC  control  functions  and  conventional  FOCAL  functions.  In 
addition,  the  LIBRARY  command  has  been  restored  for  flexible  operation  with 
the  mass-storage  disk,  while  the  FSIN  and  FCOS  functions  have  been  dropped. 

The  assembler  language  printout  for  the  SPASTIC  76  interpreter  is  given  in  the 
Appendix . 

The  corresponding  names  for  the  SPASTIC  functions  in  the  1971  and  1976 
versions  are  summarized  in  Table  1.  The  actual  operations  performed  by  the  six 
controlling  functions,  listed  in  detail  in  Table  2,  have  not  changed  in  the 
interim,  but  the  error  codes  (Table  3)  have  changed,  since  these  depend  upon 
the  core  address  from  which  the  error  routine  is  called.  One  new  error  code 
has  been  added  in  SPASTIC  76:  Code  19.72  indicates  that  one  of  the  arguments 

of  FSET  exceeds  2^^,  or  8,288,608.  An  undetected  overflow  of  this  type  would 
result  in  erroneous  scaler  or  timer  readings  in  SPASTIC  71. 


1.  DESPER,  C.  R.,  and  QUATIERI,  T.  F.  SPASTIC  - A System  for  Programming  Angies,  Scalar,  and  Timer  by  Internal  Counting. 
Army  Materiali  and  Mechanics  Research  Center,  AMMRC  TR  72-17,  June  1972. 
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T«bl«  I.  EQUIVALENT  CONTROL  FUNCTIONS  IN  SPASTIC  71  AND  SPASTIC  76 


ZEROING  PROGRAMS 


SPASTIC  71 

SPASTIC  76 

Function 

FADC 

FDRV 

Drive  stepping  motors 

FDXS 

FSET 

Set  timer  limit,  sceler  limit, 
motor  speed 

FOIX 

FOPR 

Perform  one  of  six  possible  operetions 

FEXP 

FTIM 

Run  timer/sceler  to  limit  value 

FRAN 

FSOL 

Operate  shutter  solenoid 

FAND 

FAND 

Logical  AND 

TabU  2.  SPASTIC  76  CONTROL  FUNCTIONS 


1.  FORV  (Al.  A2.  A3,  Ak) 

Initiate  stepping  motor  drives.  Al  through  Ak  are  the  number  of 
steps  for  motors  I through  k.  Zero  arguments  are  Ignored  and  the  argu- 
ment list  may  be  shortened. 

2.  FSET  (TL,  SL,  Ml) 

Change  timer  and  scaler  limits  and  motor  pulse  Interval.  TL  Is 
the  timer  limit  in  clock  units;  SL  Is  the  scaler  limit  in  counts;  and 
Ml  is  the  motor  pulse  Interval  in  clock  units.  Negative  arguments  are 
illegal.  Zero  arguments  are  ignored  and  the  argument  list  may  be  short- 
ened. Maximum  value  of  any  argument  is  2^^,  or  8,Z88,608. 

The  values  in  effect  at  load  time  are: 

TL  ■ 1,228,800  clock  units  (k096  sec) 

SL  • 1000  counts 

Ml  « I clock  unit  {speed  " 300  steps/sec) 

3.  FOPR  (ARG) 

Six  options : 

ARG  ■ 0 Read  scaler  and  timer  into  FOCAL  variables  S'  and  T' 
without  stopping  them. 

ARG  ■ 1 Stop  scaler  and  timer,  then  read  Into  S'  and  T' 

ARG  ■ 2 Reset  and  start  scaler  and  timer. 

ARG  • 3 Return  timer  run  status.  FQPR  is  zero  if  the  timer  Is 
running,  positive  if  stopped,  negative  if  a high  count 
rate  was  detected.  ARG  *0,  I , or  2 also  returns  timer 
run  status. 

ARG  ■ k Return  motor  status,  an  integer  0 to  15.  All  motors 

stopped  ■ 0;  motor  I,  2,  3i  or  4 running  contributes  I, 

2,  4,  or  8 respectively. 

ARG  - 5 Stop  afi  motors.  Return  motor  status  » 0. 

4.  FTIM  (0) 

Reset,  start,  and  run  scaler/timer  to  count  or  time  limit. 
Count  and  time  are  read  into  S'  and  T',  and  the  timer 
status  is  returned  (see  FOPR,  ARG  ■ 3). 

5.  F50L  (ARG) 

ARG  " 0 Close  solenoid,  disable  scaler,  and  clear  high  count  rate 
condition. 

ARG  » I Open  solenoid,  enable  scaler,  and  enable  clock  for  high 
count  rate  protection. 

ARG  ■ 2 Return  solenoid  status,  0 or  I. 

6.  FANO  (Nl,  N2...) 

Return  the  logical  AND  of  integers  Nl  and  N2.  Not  presently 
used,  but  wilt  facilitate  the  Independent  control  of  several 
motors  in  conjunction  with  FOPR  (4). 


Table  3.  SPASTIC  76  ERROR  COOES 


Code 

Heanlj^ 

08.67 

Too  many  function  arguments,  or  unmatched 

19.72 

parentheses 

Argument  of  FSET  exceeds  2^^ 

19.75 

Argument  of  FSET  is  negative 

I9.:9 

Attempt  to  change  count  or  time  limit  with  timer 

19.:  3 

runn 1 ng 

Argument  of  FOPR  outside  range  0 to  5 

20.03 

Timer  restart  with  high  count  rate  uncleared 

One  of  the  more  convenient 
aspects  of  computer  control  for  a 
small -angle  X-ray  scattering  dif- 
fractometer is  the  ability  to 
"zero"  the  instrument;  i.e.,  to 
scan  through  the  primary  beam  and 
find  the  true  zero  position  in  20. 
Naturally,  the  beam  must  be  con- 
siderably weakened  to  execute  these 
programs,  since  the  full  power  of 
the  primary  beam  would  damage  the 
X-ray  detector.  This  is  accom- 
plished by  turning  the  attenuator 
wheel  to  the  "3"  position  for  the 
AMR  instrument,  and  by  inserting 
a special  lead  filter  in  the 
Kratky  diffractometer.  In  the 
latter  case,  since  the  beam  is 
not  monochromatic,  insertion  of 
the  filter  changes  the  wavelength 
spectrum  reaching  the  detector, 
selectively  filtering  out  some  of 
the  characteristic  radiation  at 
1.5418  angstroms  while  passing 
more  of  the  white  radiation  in 
the  0.3  to  0.8  angstrom  range. 

To  avoid  the  electronic  rejection 
of  the  latter,  which  often  exceeds 
the  characteristic  radiation  in- 
tensity under  such  circumstances, 
it  is  recommended  that  the  radia- 
tion analyzer  be  set  to  integral 
mode  to  accept  both  types  of  ra- 
diation. The  computer  types  out 
a reminder  to  this  effect. 

The  zeroing  programs  for  the 
AMR  and  Kratky  diffractometers, 
written  in  the  SPASTIC  76  varia- 
tion of  the  FOCAL  language,  are 
given  in  Tables  4 and  5.  Several 
improvements  have  been  made  on 
the  SPASTIC  71  zeroing  program: 

(a)  the  program  prints  out  the 
entire  intensity  profile  rather 
than  the  peak  intensity  only; 

(b)  the  zero  determined  is  a true 
mathematical  zero,  defined  as  the 
center  of  gravity  of  the  beam 
rather  than  the  position  of 
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maximum  intensity,  and  (c)  the  zeroing  process  is  repeated  if  either  end  of  in- 
tensity profile  exceeds  5%  of  the  maximum  intensity,  indicating  that  too  much  of 
the  beam  is  outside  the  range  of  observation.  As  a by-product,  the  zeroing  pro- 
grams yield  the  integral  breadth  of  the  intensity  profile.  This  is  defined  as 
the  ratio  of  the  integrated  intensity  to  the  maximum  intensity;  i.e.,  it  is  the 
width  of  a hypothetical  rectangle  whose  height  is  the  maximum  intensity  and  whose 
area  is  equal  to  the  integrated  intensity. 

Sample  printouts  from  the  execution  of  the  two  zeroing  programs  are  given  in 
Tables  6 and  7.  For  the  AMR  instrument  (Table  6)  the  interval  between  data  points 
in  the  profile  determination  is  fixed  at  0.5  second  of  arc.  Since  the  AMR  dif- 
fractometer has  a fixed  integral  breadth  of  approximately  10  seconds  when  properly 
aligned,  use  of  the  0.5-second  interval  should  yield  an  acceptable  center  of  grav- 
ity with  negligible  tails  within  two  trials.  If  not,  the  interval  is  successively 
raised  to  1,  2,  and  4 seconds  of  arc  before  giving  up  the  zeroing  attempt.  For 
the  Kratky  instrument  (Table  T)  the  interval  between  data  points  is  set  to  l/20th 
of  the  sum  of  the  input  values  of  the  entrance  and  receiving  slit  widths.  Since 
the  e>qjected  breadth  of  the  primary  beam  is  approximately  the  sum  of  the  two  slit 
widths,  this  interval  gives  a good  measure  of  the  beam  profile. 

STEP-SCAN  PROGRAMS 

The  earlier  report^  included  a simple  step-scan  program  for  use  with  the  AMR 
diffractometer,  capable  of  taking  intensity  measurements  at  a series  of  26  values 
with  variable  spacing  along  the  20  axis.  Our  experience  in  using  this  program  has 
resulted  in  a number  of  modifications  which  have  improved  the  operation  of  the 
system.  The  modifications  are  as  follows: 

(A)  Antibacklash — When  20  is  driven  to  a lower  numerical  value,  the  programs 
pass  the  final  destination,  then  reverse  the  motor  direction  for  setting  the  angle. 
Since  the  angle  is  therefore  always  set  with  the  motor  driving  in  the  positive  di- 
rection, the  backlash  is  taken  out  of  the  drive  train. 

(B)  Rezeroing — At  the  end  of  a step-scan  execution,  the  shutter  is  closed 
and  the  20  angle  is  set  to  zero.  Since  stepping  motor  control  does  not  give 
absolute  feedback  of  the  angle  value,  it  is  imperative  to  know  the  initial  value 

26  when  starting  a new  program.  This  feature  makes  it  easy  to  remember:  if 

the  last  program  terminated  normally,  20  was  left  as  zero.  For  the  AMR  instru- 
ment, the  attenuator  is  also  left  at  #3  position,  the  correct  value  for  20  equals 
zero. 

(C)  Angle  Units--The  present  step-scan  programs  allow  for  different  units  for 
defining  the  20  angle.  For  the  AMR  diffractometer,  two  versions  of  the  programs 
are  maintained  with  20  defined  in  seconds  and  in  minutes.  For  the  Kratky  diffrac- 
tometer, the  appropriate  unit  is  microns  of  elevation  of  the  receiving  slit,  since 
this  variable  is  fixed  by  the  motor  drive.  The  corresponding  aitgle  depends  upon 
the  distance  set  between  the  20  pivot  and  the  receiving  slit.  The  distance  com- 
monly used  in  this  laboratory  is  229.2  mm,  chosen  so  that  1®  in  26  corresponds  to 
4000  microns  of  elevation.  Changing  angle  units  is  effected  by  defining  a multi- 
plier at  the  start  of  the  program,  which  is  the  number  of  motor  steps  per  unit 

of  angle. 
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Table  6.  EXECUTION  OF  AMR  ZEROING  PROGRAM 


• QO 

TH  I V 

SECONDS 

Al'  1 

SI 3 jsr. 

3 

TrlKESHOUDt  ^OlJ^O 

SECOi^OS  crs/SEc 

SECONDS 

CTS/SEC 

SEC0.8DS  CTS/SEC 

. . 

20«0a 

3*0 

a. 

6.0a 

878.0 

» 

8.0a 

335.0 

19. S- 

6.0 

a- 

5.5a 

1033.0 

« 

8.5* 

273.0 

a- 

19.0a 

6.0 

a- 

5.0a 

1 193.0 

a 

9.0* 

190.0 

a* 

18. S» 

6.0 

a- 

4.5* 

1304.0 

* 

9.5* 

126.0 

a- 

18.0a 

A.0 

a- 

4.0a 

1495.0 

a 

10.0* 

88.0 

a» 

17. 5« 

4.0 

a- 

3.5* 

1732.0 

a 

10.5* 

58.0 

a - 

17.0a 

9.0 

a- 

3.0a 

1858.0 

a 

1 1.0* 

27.0 

a- 

16. 5- 

7.0 

a- 

2.5a 

201 1 .0 

a 

11.5* 

16.0 

a- 

16.0a 

13.0 

a - 

2.0a 

2146.0 

a 

12.0* 

12.0 

a- 

15. 5« 

12.0 

a- 

1.5» 

2258.0 

a 

12.5* 

8.0 

a- 

15. 0« 

12.0 

a- 

1.0* 

2364.0 

a 

13.0a 

3.0 

a- 

14*5* 

12.0 

a- 

0.5* 

2311.0 

• 

13.5a 

5.0 

■ - 

14.0a 

14.0 

0.0« 

2290.0 

a 

14. 0a 

2.0 

a- 

13.5* 

21  .0 

a 

0.5a 

2167.0 

a 

14.5* 

3.0 

a- 

13. 0a 

22.0 

a 

1.0a 

2111.0 

a 

15. 0« 

3.0 

a . 

12. 5» 

29.0 

a 

1.5* 

2018.0 

a 

15.5* 

2.0 

a- 

12.0a 

36.0 

a 

2.0* 

1869.0 

a 

16.0« 

3.0 

a- 

11.5« 

55.0 

2.5« 

1639.0 

a 

16.5* 

l.p 

a- 

1 1 .0* 

82.0 

3.0* 

1546.0 

a 

17. 0» 

2.0 

a- 

10.5a 

119.0 

3.5« 

1386.0 

a 

17.5* 

2.0 

a- 

10.0a 

132.0 

4.0* 

1277.0 

a 

18. n» 

3.0 

a. 

9.:>» 

192.0 

4.5* 

1142.0 

a 

18. 5" 

0.0 

a- 

9.0a 

258.0 

5.0= 

953.0 

a 

19.0a 

0.0 

a- 

8.5» 

309.0 

5.5a 

847.0 

a 

19.5* 

2.0 

a- 

H.0« 

384.0 

6.0« 

742.0 

a 

20.0* 

1.0 

a- 

7.5a 

474.0 

6.5» 

595.0 

C'i  KU'I^U 

a- 

7.0a 

616.0 

7.0* 

527.0 

H0S1TIU8«- 

0.4 

a- 

6.5- 

774.0 

7.5* 

407.0 

I YTE'j 

rtAL  ^HEADTH>^ 

9.9  SECONDS 

MAX* 

4728 

CTS* 

2364  CTS/SEC 

QUIT 

« 

Table  7. 

EXECUTION  OF  KRATKY 

ZEROING 

RROGRAN 

KKATKY  ZEHOl^li*  A^ALYiEH  TO 

IVIEGKAL 

SL1TS«  nlCHOVS 

1 I 

150  2l 140 

THRESriOLDt  1000  KutlvO 

nlCrtOr^S 

CTS/SEC 

niCROVS 

CTS/SEC 

niCROVS 

CTS/SEC 

580.0a 

7.0 

159.5* 

964.0 

* 261.0a 

275.0 

»- 

565.5* 

10.0 

145.0* 

1063.0 

a 275. 5» 

234.0 

*- 

551.0a 

6*0 

130.5* 

1227.0 

a 290.0« 

175.0 

a- 

536*5- 

7.0 

116*0* 

1304.0 

a 304*5* 

198.0 

»- 

522.0* 

8.0 

101 .5* 

1332.0 

a 319.0a 

182*0 

a- 

507.5* 

6.0 

87.0- 

1426.0 

■ 333*5* 

135.0 

a- 

493.0* 

9.0 

72.5* 

1467*0 

a 348.0* 

103.0 

a- 

478.5a 

14.0 

58.0* 

1540.0 

a 362. 5- 

86.0 

a- 

464.0* 

8.0 

43.5* 

1520.0 

a 377.0a 

64 . 0 

a- 

449*5« 

16.0 

29.0* 

lu  2*0 

a 391. 5« 

54.0 

a- 

435. 0« 

16.0 

a • 

14.5* 

1581.0 

* 406.0« 

29.0 

a- 

420.5« 

26.0 

0*0* 

1562.0 

a 420. 5» 

17.0 

a- 

406.0a 

27.0 

14.5* 

1555*0 

a 435.0* 

18.0 

a - 

391.5* 

50.0 

29.0* 

1463*0 

a 449.5* 

5.0 

a- 

377. 0» 

45.0 

43.5- 

1432.0 

a 464*0a 

6.0 

a- 

362.5* 

59.0 

» 

58.0* 

1308.0 

a 478.5* 

3.0 

a- 

348*0* 

62.0 

72.5* 

1202.0 

a 493*0- 

6*0 

a- 

333.6* 

83.0 

a 

87.0* 

1135*0 

* 507.5* 

4*0 

a- 

319*0* 

104.0 

101.5* 

1009.0 

• 522.0* 

5*0 

a - 

304.5* 

141.0 

1 16.0* 

943*0 

• 536.5* 

2.0 

a- 

290.0* 

163.0 

130.5* 

754*0 

* 551.0* 

4.0 

a • 

275*5* 

221.0 

145.0* 

668*0 

- 565*5* 

3.0 

*• 

261 .0* 

306*0 

159*5* 

542.0 

* 580*0* 

6*0 

a- 

246*5* 

373.0 

174*0* 

473.0 

CG  FOUVD 

a« 

232.0* 

438*0 

188*5* 

431.0 

POSITION*- 

14*6  NOW*0 

*• 

217.5- 

525.0 

a 

203.0* 

397.0 

INTEGRAL  BREADTH*  343*6  MICRONS 

«“ 

203.0* 

689.0 

a 

217*5* 

374.0 

MAX*  3164 

CTS*  1582  CTS/SEC 

a- 

1A8.5* 

772.0 

a 

232.0* 

306.0 

174.0* 

888.0 

246.5* 

267.0 

QUIT 

* 
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(D)  Attenuator  Programming --For  the  AMR  diffractometer,  changes  in  the  atten- 
uator position  have  been  incorporated  into  the  step-scan  programs. 

(E)  Multiple  Scanning — One  program  has  been  written  for  repeated  multiple 
scans  using  the  Kratky  camera,  to  average  out  possible  fluctuations  in  primary 
beam  intensity  with  time.  Improved  control  over  the  cooling  water  flow  rate  in 
the  X-ray  tube  has  obviated  the  need  for  this  program,  but  it  is  included  for 
completeness . 

(F)  Integration  for  the  Porod  Invariant — Some  minor  additions  to  the  programs 
have  made  it  possible  to  calculate  the  Porod  invariant  as  a by-product  of  the 
step-scan  program.  The  expression  used^  to  calculate  2!^^^  is  that  suitable  for  use 
with  experimental  (smeared)  intensity  l'(m)  obtained  with  long  slits: 

m ^(m)  dm  U) 


where  m is  the  elevation  variable  in  microns  as  defined  in  the  Kratky  instrtiment. 

The  value  of  2!^^  calculated  by  the  program  is,  of  course,  an  approximation  based 

on  the  use  of  the  trapezoid  rule  and  a finite  range  of  integration.  Where  a back- 

groxind  determination  is  made,  the  appropriate  value  of  2!^^  is  the  difference  in  the 

two  integrals.  In  the  case  of  the  AMR  diffractometer,  the  angle  units  are  differ- 
ent, but  the  units  of  the  invariant  are  printed  out  along  with  its  numerical  value 
in  each  case.  Also,  it  is  appropriate  to  point  out  that  there  is  little  experi- 
ence with  the  present  programs , and  that  asymptotic  forms  of  the  intensity  curve 
are  often  used  in  the  high  and  low  end  of  the  intensity  curve  to  improve  accuracy. 

The  step-scan  programs  for  the  AMR  diffractometer  are  listed  in  Tables  8 and 
9 for  29  defined  in  terms  of  seconds  or  minutes  of  arc.  The  step-scan  program 
for  the  Kratky  diffractometer  is  listed  in  Table  10,  while  the  multiple  step-scan 
program  for  this  instrument  appears  in  Table  11. 

For  comparison,  step-scans  were  run  on  the  same  sample  on  both  the  AMR  and 
Kratky  diffractometers.  The  sample  chosen  was  a polypropylene  fiber  in  the  form 
of  a mat  of  parallel  yarns  of  such  a thickness  as  to  attenuate  the  AMR  primary 
beam  by  a factor  0.513.  The  data  obtained  losing  the  two  instruments  are  given  in 
Tables  12  and  13.  The  printout  is  somewhat  self-explanatory,  keeping  in  mind  that 
input  data  always  follows  a colon,  while  output  data  follows  an  equal  sign.  The 
abbreviations  used  in  the  printout  are:  AT,  attenuator  setting;  CT  LMT,  count 

limit;  CTS,  counts;  DL,  interval  in  26;  TH,  20;  and  TM  IMT,  time  limit.  In  each 
case  data  is  taken  closely  spaced  at  the  lower  20  values  and  more  widely  spaced 
at  the  higher  values . The  diffraction  maximum  occurs  in  both  sets  of  data  at 
20  = 0.6®  (36  minutes  and  2400  microns  for  the  two  instruments)  corresponding  to 
a Bragg  spacing  of  approximately  150  angstroms.  The  intensity  at  the  diffraction 
maximum  is  higher  by  a factor  of  33  for  the  Kratky  diffractometer,  which  is  in 
agreement  with  the  ratio  of  31  for  the  integral  breadths  of  the  primary  beams  of 

2.  ALEXANDER,  L.  E.  X-Ray  Diffraction  Methods  in  Polymer  Science.  Wiley-Interscience,  New  York,  1969,  p.  292. 
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Tabic  8.  AMR  STEP-SCAM  PROCRAM,  ANGLE  IN  SECONDS 


* s 

C-8K  SPASnCf76 


02.04  S >J«FSOL(0);T  IIm'VSSm  TH  SECO^DS’SIJS  «L»I0 
02.06  A "Trt  IS‘MC#”AT  IS’SACm! 

02.10  A ‘'CT  LMT*SMC*"fM  LrtT'SMS.! 

02. 1 1 S MT«MS*300 

02.20  S U*FSET(iiT*MC>  1 );S  f«>0 
02.30  TYPE  “DATA  PTS" 

02.54  S 1«I«>1 

02.56  A TK<  I )#*'AT”.Ar<  r )#"DL‘S  DL^  I ) 

02.60  1 <DL(I>>  2.54«3.09«2.54 


03.09  a AT<I)»3;S  Ai»<TH(  2 >-TC>*«'4L;S  I=0;S  Ort»0;5  TU-TfUl);S  AL=AT<n 
03.18  D 2.541S  TC»TH(I);l  < DL< I > ) 3. 25. 3. 50 

03.25  D 6JD  5;S  TC=TC*DL<  I ) ; S U»FSG'4<  DL<  I ) ) 

03.27  S U»U*CTH(I  + l>-TC-lJ*lE-4);i  <-U)3.45 

03.40  S Al»<THU  + l)-TC*DL<I))*i>1LJS  TC«TH<I  + 1>;D  610  5;G  3.18 
03.45  S A1«DL<  I }*ML;vi  3.25 

03.50  S AI«-TC*ML;S  TC*FSOL(0)JD  610  5. 1ST  " END".!HSO 

05*01  S IJ»F0PK<4)SI  <-O)5.01SS  IJ  = KSUL(2)SI  <-(1)5.08 

05.04  S «J»F0PH<3)SI  <U>5*50;S  (JaFSET<  600 ) ♦FOPh(  2 > + FSOL<  1 ) 

05.06  S U»F0Prt<3)SI  <J)5.50.5.06 

05*08  S J3FSET(MT)SS  U»FTIM(0)U  <rj)6.50Sl  ( r'ABSC  AC  - AL  > > 5 *2.  5 * 2 
05*10  T SEC  SQD  C/S*  FUK  AT”*2.  AL.  ! S S Qei»0SS  rt«  TC 

05.20  T i6.«l.#>!."TM”.TC.<l.‘'  AT". AC. <6."  CTS".S* 

05*30  S TI=r*/300SS  SI*S*/Ti;S  QM*9M+<Sl*TC+SL*TL>*<TC-TU)/2 

05.40  T *6.04."  M".Si;S  Ti-=TCSS  SL-SISS  AL*ACSH 

05.50  T !!."XS  CT  KATE".ffSS  'J«FSOL<0);U 

06.05  S A2aK00*(Ar<l)-AC>/6SS  AC»AT< I > 

06.10  S U=F0Prt<4);7  <-»l)6.l0 
06.15  I (-AD6.30.6.30 

06*20  S UsFOav)<Al-lO0.A2>Sd  A2s0S$  Alsi00;(j  6*10 
06*30  S U3K0.'1U(A1.A2>;S  A1s0;s  A2«0 


Table  9.  AMR  STEP-SCAN  PROGRAM,  ANGLE  IN  MINUTES 


C-8K  SPASTIC. 76 


02.04  S M=FSOL(0);r  ff.'VSS.  T8  IM  . 'JUTES".  ! S S Mt»600 

02.06  A "TH  IS".TC."AT  IS". AC.! 

02*10  A "CT  LMT".MC."TM  UMT".MS.! 

02.11  S .'1T«MS*300 

02*20  S U«KSET<MT.HC. 1 >SS  1=0 

02*30  TfeE  "DATA  PTS" 

02*54  S 1=1*1 

02*56  A !"TH".TH< I >."AT".AT< I )."DL".DL( I ) 

02*60  I <DL(I>)  2*54.3*09.2.54 

03-09  S AT<I)=3;S  Al=<TH< I )-TC)*MLSS  I»OSS  QM=0SS  TL*TH<1)SS  AL«AT< 1 > 
03*18  D 2.54SS  TC=TH(I>SI  ( DL( I > ) 3 *25. 3 * 50 
03*25  D 6SD  5SS  TC‘TC*DL(  I ) i S U*FSG.V<  DL<  I ) > 

03*27  S U«U*(TH<  1*1  >-TC-U*lE-4)S  I <-IJ)3*45 

03.40  S Al*< Trt< 1*1 >-TC*DL< I) )*MLSS  TC»TH(I*1)SD  65 D 5SG  3*13 
03*45  5 Al*DLn)*Mt;G  3*25 

03*50  S A1»-TC«MLSS  TC»FSOU<0>;D  6SD  5*lST  " E-JO’SIflSO 

05*01  S U=K0Ph(4)SI  <-iJ)5*01SS  U«FS0L<2);i  <-IJ>5*08 

05*04  S U«F0PR<3)SI  (U)5.50SS  U«FSET< 600)*FOPH(2)*FSOL< 1 ) 

05*06  S U«F0PR<3)SI  <U)5.50.5.06 

05*08  S U«KSET(MT>SS  U»KTIM<0)SI  <in5.50Sl  < FA0S<  AC- At,)  ) 5. 2.  5*2 
05*10  T !”QM"*.OM."  SOD  C/S.  KOK  AT"*2.AL.!SS  QM-0SS  TL«TC 

05*20  T *6*03.#. !."TH".TC.*1."  AT". AC. *6."  CTS".S* 

05*30  S T1-TV300SS  SI*S»/TISS  QM«Q«*  < SI  *TC*SL*  TL)  ♦<  TC-TL) /2 
05*40  T <6*04."  I9".SISS  TL=TCSS  SL-SISS  AL«ACSR 
05*50  T II. "XS  CT  HATE".ll:S  U>FSOL(0)SQ 


06*05  S A2«300«<ATU )*AC)/6SS  AC=AT(I) 

06*10  S IJ-KUPH(4>SI  (-IJ)6.10 
06*15  I (-41)6*30.6*30 

06*20  S U»FDHV<A1-100. A2);S  A2«0SS  A1=100;G  6.10 
06*30  S U>FDHV(A1.A2);S  A1«0SS  A2-0 
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Tabu  10.  KRATKY  STEP-SCAN  PROGRAM,  ANGLE  IN  MICRONS 


♦ J 

S>^ASriC*76 


02.04  i>  i)»KbUL<0)  i r l!#*VSS»  TH  IM  MlCrtUYS“»  ! J S yiL^H 

02.06  A •VkESK'JT  Trt*SrC»! 

02.20  S '1  = KSET(0»0*  I )+KOHH<  I )JS  I»0Sr  ’'DATA  PfS” 

02.54  S l»l*l 

02.56  A rTH”.TH(  I )#'*DL*SDL(  I > 

02.60  I <DL(I>)  a. '4»3.09.2.54 

03.09  S A1»<THU)-TC  : lv0;s  QM»0JS  TL*H<1);D  6 

03.10  I <-KUPri(4)) 

03.11  T !*'*SEf  TO  DIKKEHE^  FI  AL** ! 

03.12  T **USE  M’.CKEL  I-  -TErt”#  I ! ! ; S (J»KS0L<1> 

03*13  A “C;  4-iir**#rtC#'*rrt  1 »S  rtT*MS*300 

03.14  I (FUPH(3)):>.S0;S  (j8K5Er<MT»0C) 

03. IH  D 2.b4;s  lC»rH<l);C....^U  ATTE'JJAT0:<  -j-feel 

03.20  D 6;D  5;i  <DL(  1 ) >3.25*3*b0 
03*25  S TC=TC>DL(  I )JS  0*FSG'J<  DL(  ! ) ) 

03.27  S LlaU*<TH(I  + n-TC-U*lE“4);i  <-'1)3.45 

03.40  S A1=<TH(!+1)-TC+DL<I>)*1L;G  3.1H 
03*45  S AlsDL<  1 >«yjL;0  3*20 

03*50  s ai=-tc*iil;s  tc*ksol<0);d  6;t  *•  « sou  c/s"i!;o 

05.01  S -JsFOPHCA);!  <-'J)5.0i;S  U»FS0U<2);l  <-iJ>5.0K 

05.04  S U«KUPrt<3>;l  <U)o.505S  iI=KSEl< I 500 ) ♦^ SUL< I ) ♦KuPrt< 2 > 

05.06  S t|sF0PK<3);l  <ij)5«50»5.06 

05.0a  S J=FSET(iiT);S  U«FTIM(0>;1  CJ)5.50 
35*20  r <6.^.  CTS'*-S* 

05.30  S TlsT*/300JS  SIaSVn;S  QrtaQrt»<SI*rC*SL*TL)*(TC-TL)/P 

05.40  r 46.02. ••  TL*TC;S  SUaSIlH 

05*50  r !!.”XS  CT  KATE‘*.!t;S  'I=FSOL<0);Q 


06.10  S U»K0Prt(4);l  <-tJ)6*10 

06*15  1 <-Al )6*30.6*30 

06.20  S i]=KSOL<0)+KUrtO<0.0.Al-20O> 

06.25  S ';»F0PH<4);i  <-'J)6.2bJ3  Al=200 

C6.30  S U=KDHV<3.0.A1 );S  A1=0 


Table  II.  KRATKY  MULTIPLE  STEP-SCAN  PROGRAM,  ANGLE  IN  MICRONS 


* « 

C-5K  SPASriC»76 


U2.04  5 QI=rSUL<0>:  r !!.*V.*)S.  TH  I >»  HICrtOYS" » ! ; S *1L=8 

02.06  A 'VkESE^T  TH".  fC.! 

02.10  A *WHK  OK  .40LTIPLE  SCABS'*.  CY.  ! I S KC*0 
02*20  S iJ»KSET(0»0.  l)  + KUPh<  1 >;S  I»0 
02.54  S I = I*lJf  42.  ! .••GKP”.  I 
02.56  A ••  fH".TH<  I ).”DL’*.UL<  I ) 

02.60  1 <UL<I)>  2.54.3.06.2.54 


03.05  T **  Q«"4.Qrt.**  rt  SOU  C/S'*f;S  QT^OT+QM 
03*06  S KC»rfC«lSlK  (CY-KC>3*50 

03. 5 Al»<  TH<  1 )‘TC)*rtL;S  I*0JS  Qrt-0;S  TC»TH(l)iS  TL-TCID  6 
03*10  1 < -KUPH<4) )3* 10: I <1-KC)3*I8 

03.11  T !.••SEr  A9ALY^EH  TO  DI KKEHEY  TI AL'*.  I . "USE  NICKEL  KILTF.K”.!!! 

03.12  A *»CT  L«T**»MC.'*TM  L«r''.ns.l:S  MT»MS*300 

03*14  S U-KSOL(l>:r  “SAMPLE  I*D*“:i  ( K0PH<3) >5*50: A >t 
03.18  S I-I+IJS  TC»TH<I> 

03*20  D 6;D  5:i  (DL<I)}J.2S.3*05 
03*25  S rC«TC*UL<  I >:S  •J»KSGY(DL<  I ) ) 

03.27  S IJ«'J*<TH<I*1>-TC-'JKIE-4);I  <-0>3*4d 
03*40  S A1«(TH( !♦ 1 >-TC^DL< I > >*ML:G  3*18 
03*45  S A1>0L< I )«ML;G  3*20 

03.50  s ai*-tc*ml:s  rc«FSOL<0>:u  6;t  fAyEHAOE  ”;s  om*ot/cy;d  3.0s:o 

05*01  S U«F0PH(4>:1  (-U)5*0i:s  a«KS0L(2>:i  <-0)5*08 
05*04  S U*K0PR<3);i  <U)5*50:S  U-FSET<  1 500) «^FSOL<  1 )«^FOPR< 2 ) 

05*06  S ()«K0PK<3):i  <0)5*50.5*06 

05*08  S 0«»S£T<MT.nC)) S U*FTin<0>n  <0)5*50 

05*30  S TI-TV300JS  SI«S*/Ti;S  QM«0t1^<  QI  kTC^SL*  rD*<  TC-TD/2 
05*40  T 46. Pl.TC.S*. 46*03. Si:S  TL*TC:S  SL«SUR 
05*50  T lf.“XS  CT  KATE'*. ms  U»FSOL<0)2Q 

06*10  S 0-KUPK<4):l  <-O>6*10 

06*15  1 < -A1 >6*30.6*30 

06*20  S O«FSOL(0)KFDKU<0.0.A1-20O) 

06.25  S U«F0PN(4);i  (-0)6*252$  Al-200 
06*30  S O*KDKU(0.0.A1)2S  Al-0 
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T«bU  12.  EXECUTIOM  OF  AMK  STEP'-SCAN  PROGRAM 


Tabu  13.  EXECUTION  OF  KRATKY  STEP-SCAN  PROGRAM 


/SS*  TH  rtl^’ifES 
TH  ISI0  AT  lSt3 
CT  LMTME3  TM  L«rJl20« 
DATA  PTS 
Tritb  ATtO  ULl  I 
THUS  ATt0  Dts3 
THtAPi  AT10  DLt0 


/SS*  TH  1.^  nlCHO^S 
PHESE4T  TrilO 
DATA  PTS 
TH»SO0  OtlJOP^ 

THU0A0  DLtP00 
THtA000  DLI0 

SET  AYAtr^EK  TO  DIKKErtEYTlAL 


THa 

5*000 

AT- 

0 

CTS- 

1000 

I;M- 

3*4468 

USE 

MICKEL 

KILTEH 

TH» 

6*000 

AT- 

0 

CTS- 

1000 

IM« 

2*4962 

TH« 

7*000 

AT- 

0 

CTS* 

1000 

1 M- 

1*8854 

iri« 

8*000 

AT- 

0 

CTS* 

1000 

IM* 

1*5868 

CT  LMTl 1E3 

TH  LMTtieo 

TH« 

9*000 

AT- 

0 

CTS- 

1000 

19- 

1*3465 

TH» 

10*000 

AT- 

0 

CTS- 

1000 

IM* 

1 * 1234 

TH- 

see 

CTS- 

1000 

IM- 

103*59 

THa 

! 1*000 

AT- 

0 

CTS* 

1000 

1 M» 

1*0215 

TH* 

600 

CTS- 

1000 

I.M« 

63*87 

TH* 

12*000 

AT- 

0 

CTS- 

1000 

1M- 

0*9734 

TH- 

700 

CTS- 

1000 

IM- 

54*43 

TH  = 

13*000 

AT- 

0 

CTS- 

984 

IM- 

0*8200 

TH- 

800 

CTS- 

1000 

IM- 

53*  19 

TH- 

14*000 

AT- 

0 

CTS- 

940 

IM- 

0*7833 

TH- 

900 

CTS- 

1000 

19- 

49*59 

TH- 

15*000 

AT- 

0 

CTS- 

892 

IM* 

0*7433 

TH- 

1000 

CTS- 

1000 

19- 

43*59 

TH- 

15*000 

AT- 

0 

CTS- 

904 

I.M- 

0*7533 

TH- 

1200 

CTS* 

1000 

19- 

37*30 

TH- 

18*000 

AT- 

0 

CTS- 

814 

l.M« 

0*6783 

TH- 

1400 

CTS- 

1000 

19- 

34*86 

I'H- 

21 *000 

AT- 

0 

CTS* 

868 

1 M« 

0*7233 

TH- 

1600 

CTS- 

1000 

1.9- 

31*43 

TH- 

24*000 

AT- 

0 

CTS- 

802 

IM- 

0*6683 

TH- 

1800 

CTS- 

1000 

19- 

32*25 

TH- 

27*000 

AT- 

0 

CTS- 

890 

1M- 

0*7417 

TH- 

2000 

CTS- 

1000 

19- 

36*68 

rrf- 

30*000 

AT- 

0 

crs- 

1000 

IM- 

0*8910 

TH- 

2200 

CTS- 

1000 

19- 

41*64 

TH- 

33*000 

AT- 

0 

crs- 

1000 

l.M- 

1*0449 

TH- 

2400 

CTS- 

1000 

19- 

47*02 

TH- 

36*000 

AT- 

0 

CTS- 

1000 

IM- 

1*4039 

TH- 

2600 

CTS- 

1000 

19- 

43*65 

T.H- 

39*000 

AT- 

0 

CTS- 

1000 

I M« 

1*2669 

TH- 

2800 

CTS- 

1000 

19- 

33*76 

Trf- 

42*000 

AT- 

0 

CTS- 

1000 

IM- 

0*9537 

TH- 

3000 

CTS- 

1000 

19- 

24*35 

TH* 

45*000 

AT- 

0 

CTS- 

712 

IM- 

0*5933 

TH- 

3200 

CTS* 

1000 

IV- 

20*89 

TH- 

48*000 

AT- 

0 

CTS- 

528 

IM- 

0*4400 

TH- 

3400 

CTS* 

1000 

19* 

17*93 

TH- 

51*000 

AT* 

0 

CTS- 

426 

IM- 

0*3550 

TH- 

3600 

CTS- 

1000 

19- 

16*50 

TH- 

54  *000 

AT- 

Cl 

CTS- 

338 

IM- 

0*2817 

TH- 

3800 

CTS* 

1000 

19- 

16*07 

TH- 

57*000 

AT- 

0 

CTS- 

322 

IM* 

0*2683 

TH- 

4000 

CTS- 

1000 

19- 

14*84 

TH- 

60*000 

AT* 

0 

CTS- 

288 

1 M« 

0*2400 

OM- 

e*233214E^09 

H SQD 

C/S 

Qrt- 

0*124484£^04  HIM  SOD 

c/s» 

FOrt 

AT-  0 

• 

the  two  instruments  as  given  in  Tables  6 and  7.  The  lower  resolution  of  the  Kratk) 
instrument  using  the  present  slit  settings  allows  for  much  higher  levels  of  dif- 
fracted beam  intensity.  The  price  that  one  pays  for  this  intensity  is  in  terms  of 
the  minimum  angle  at  which  one  can  take  useful  data,  vdiich  is  500  microns,  or 
0.125®,  for  the  Kratky  diffractometer.  The  data  on  the  AMR  instrviment  starts  at 
5 minutes,  or. 0.083®,  and  could  well  start  much  lower.  In  all  fairness,  however, 
it  must  be  stated  that  the  Kratky  diffractometer  is  capable  of  the  same  resolution 
at  the  AMR  instrument  if  finer  slits  and  a longer  working  distance  are  used.  The 
present  coarse  resolution  conditions  are  deliberately  chosen  to  enhance  intensity 
at  the  expense  of  resolution. 


Table  U.  RESULTS  OF  KRATKY  HULTIPLE 
STEP-SCAN  EXECUTION 


As  a final  demonstration,  the  multiple  step-scan  program  was  executed.  A 
step-scan  similar  to  that  of  Table  13  was  executed  ten  times.  Since  the  entire 
intensity  data  generated  is  rather  voluminous,  only  a summary  is  given  in  Table  14, 
in  the  form  of  the  Porod  invariant  for  the  ten 
scans.  Any  long-term  drift  in  the  primary  beam 
intensity  would  appear  as  a corresponding  change 

in  Although  a small  drift  may  be  indicated 

by  the  systematic  changes  in  2^  over  the  ten 

scans,  the  effect  appears  only  in  the  third 

digit  and  leads  to  less  than  1%  error  in 


A greater  source  of  error  lies  in  the  fact  that 
the  integral  for  the  Porod  invariant  (Eq.  1)  has 
been  truncated  to  cover  something  less  than  the 
full  range  zero  to  infinity. 


Sc4n  No. 

Porod  Invariant 

1 

0.111372  E 

♦ 

09 

2 

0.112771  E 

♦ 

09 

} 

0.112852  E 

♦ 

09 

1, 

0.113289  E 

♦ 

09 

i 

0.113972  E 

♦ 

09 

6 

0.11*018  E 

♦ 

09 

7 

0.115220  E 

♦ 

09 

8 

0.1 142211  E 

♦ 

09 

9 

0.113563  E 

♦ 

09 

10 

0.113561  E 

♦ 

09 

Averagt 

0.11358*  E 

♦ 

09  i 0.90% 
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APPENDIX.  PAID  ASSEMBLY  OF  SPASTIC  76 


[ / S.P. A.S.T. I .C.  - TAPE  1 - 19  KE9  1976 

• A'gO  KCOS  DHOPPED*  LIBHAhV  COi*li<lA>ID  ALLOjiKO 

i ^ 

t /SYSTEM  EOrt  PKUGrtAMMI.MG  AMGLES.  SCALAH*  AMD  TlMEft 

\ /BY  IMTEriMAL  COiJMTIMG 

f /OVEriLAY  KOri  KOCAL»  1969  KOK  <KAY  SCATTKrtl.MG  EXPEHIME.MTS 

/kICHAHD  DESPEH.  AMMHC.  WArEhTOj)>)»  MASS. 

! /CUMPATIBLE  illTrf  FOCAL  69 

/ ...DO  MOT  USE  IMIT... 

/A  .ilORD  OOERLAY  CAM  BE  IJSED.  LOAD  BA  SPASTIC 
( /«K  OOErtLAY  SHOOLD  BE  OSEABLE.  LOAD  BA  SPASTIC 

' / 

/FOCAL  FLOAflMG  POIMT  OPEHATOHS 

/ 

/ . . . CAOT 1 0 M . . . 

: /SOME  OF  THESE  DIpFEH  FROM  STAMDAHD 

/FLOATIMG  POIMT  OPERATORS 
/ 

: / MOTE PALD  DOES  MOT  RECOGMI/.E  FIXMRI 

t / !)SE  PAL  III  IMSl'EAD  OH  DELETE  FIXMRI.  SI  MCE 

/ FLXTAB  MILL  TARE  CARE  OF  IT  IM  PALD 

/ 

FGET=P0OO 

^ FADD=10«0 

FSU3=a000 

FDIU=3OB0 

FMIIL=A0OP) 

FPo*=500O 
FP(JT  = 6O00 

/THE  ABOOE  V SYMBOLS  REOUIHK  FIXMRI  FOR  PAL  III 
FMOr(  = 7OP0 
FEXT=00O0 
/ 

/HARDWARE  lOT'S 
/ 

SMCF=631 1/SRIP  IF  MO  CLOCK  FLAG 
CCF=63ia/CLEArt  CLOCK  FLAG.EMABLE  CLOCK 
DSCK=631A/DISA3LE  CLOCK 

DSCF=6316/CLEAR  CLOCK  FLAG  AMD  DISABLE 
EMSL=6361/EMABLE  SOLEMOID  AMD  SCALAR 
DSSL=63S8/DI SABLE  SOLEMOID  AMD  SCALAR 
/STEPPIMG  MOTOR  ME-STEP  lOTS- 
M1 F=63H1 /MOTOR  1 FORMARD 
M2F=6331 /MOTOR  2 FORWARD 
M3F=633A/MOTOR  3 F'ORWArD 
MAF=63A1 /MOTOR  A FORWARD 
M1r=6322/M0T0R  1 REVERSE 
M2R=632A/MOTOR  2 REVERSE 
M3R=6332/M0T0R  3 REVERSE 
MAR=63A2/MOTOH  A REVERSE 
/ 

/FOCAL  SOBHOUTIME  CALLS 
1 ■ / 

; FEMT=JMS  I 7/FLT  PT  IMTRPTR 

! POPA=TAD  I I3/HESTORE  AC 

MEGATE=JMS  I 51/MEGATE  FLAC 
IMTEGR=JMS  I 53/FIX  FLAC 
RETURM»JMP  I 136/F'UMCTIOM  HETURM 

, PUSHJ>JMS  I 1A0/RECURSI VE  SUBRTM  CALL 

V P0PJ=JMP  I lAl/S'lBRTM  RETORM 

I PIJSHA>jnS  I 1A2/SAVE  AC 


I 

t 

I 

f 

\ 

I 


h 


L 


H 


i 

i 

i 


PIJSHKaJMS  I KLl  Pf 

POPK«.Ji«)S  I 144/uESTOiiE  KLT  PT 
PrtI 'JTC»jyiS  I 151/PhI')T  CHAH 
EfiRORaJMS  I l66yEMRUK  «KCov<ERy 
PIXTAB 
/ 

/MEMORY  EIELD  CO'lTnOU  lOTS 
CDt-  = 620l 
CIK»6a«8 
/ 

/POCAL  storage  looms 
/ 

PTl=3S 

EX  1=40 

ELAC=44 

AOU=61 

CHAR=66 

P770£1=1O1 

P7 600= 104 

0260=1 13 

MS=180 

START=177 

KMTAai-=374 

ILGL=634 

GS1=1437 

EVAL=1613 

FMTABL=216S 

SAOLX-2601 

ERHUhS=2725 

REOOOR=2740 

DI 02=6757 

pnMTR=7527 

DLI3=7557 

LIME0-100  /PIELU  1 
DlIB«=180  /KIELD  1 
HLI3=  125  /PI ELD  1 
/ 

/ 

/ 

/ S.p»A.3-T- I -C*  - TAPE  2 

/PAGE  ZERO  PATOrt-POOAL  69 
/ 

/START  OK  I MTEHrIIFT  SVC  MODI  KI  ED 
/.MOT  I.MTEMDED  Kou  PDP-5  OR  PDP-8S 
/ 

KIELD  0/SET  KIELD  ZERO  IMDICATOh 

*I 

0001  5402  JnP  I •+! 

0002  6172  I MTHPX  /ADS  MODKD 

0003  0000  SAVACX»0 

/ 

/CrfAMGE  BOTTOM 
*35 

0035  4673  3IJFEMU-2 

/ 

/MODIKY  I.MITIALIZM  ADS 
♦ 176 

0176  4365  BEGI.MX 

/ 

/MODIFY  KDMCTIO.M  ADDRESS  TABLE 
•KMTA8K*3 
0377  4757  FOPH 
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«r-K 


,‘>0P3  KSOL 
0/1"!  5P00  KPHV 

0/408  4717  KSKT 

0/IM3  t)10b  i-llil 

0/40/1  11/48  r'AMU 

/POT  4£4{:tU4(5  I.>J  V«-<T  TiJU  bOOMh  SI>4CK  bM.  CUS  A!<k:  IJiiUrPKI) 
0/JO5  8785  Knr<0«5 

0406  8785  KSKUkS 

/ 

/AMD  KUMC  riOM  - CALLED  BY  KA MU< I 1 . I 8 . . . ) 

/IBIS  KJ\4CnO.M  IS  HEEMTrtA.Mr.  Ahiii).<JE\4  T LIST  1 1 ML  I .»il  T -JD 
/Al-iGS  ASSUMED  IM  HAMGE  M-4045»  MU  C4EC-i  MADE 

* 1 1 48 

1148  4453  KAMU.IMTEGH 

1 143  4548  PIJSBA 

1 144  4540  piJSHJ 

1 145  1343  A.RR 

1 146  535/1  JMP  .*6 

1147  4453  IMTEGH 

1150  7200  ClA 

1151  1413  PUPA 

1158  0046  AMD  KLAC+8 

1153  5343  JMP  KAMD+1 

1154  1413  PUPA  / EXIT 

1155  3046  DCA  KLAC+2 

1 156  5536  P.ETJHM 

/ 

/HETAIM  LIBHAHY  CUM.'iAMD  AT  LUCM  1 173  (8-74) 

/ 

/ABUUME.MT  KUAL!JATUri 
/ 

*1343 


1 343 

1066 

AH13.TAD  CHAtt 

1344 

1353 

TAD  MCOMMA 

1 345 

7640 

SEA  CLA/LASl  CBAH=»? 

1 346 

5358 

JMP  ..+4 

1 347 

4540 

PUSHJ  /YES-GET  AMUTHEn  AHG 

1350 

1618 

EVAL-  1 

1351 

7001 

I AC  /AMD  SKIP  IMSTR  OM  RE 

1 352 

554 1 

POPJ  /OTBEICMISE  MO  SKIP 

1 353 

1584 

rtCUM/iA»  -254 

f 

*1553 

1 553 

6381 

lOTBL.MlF  / LIST  OF  STEPPI MG  i 

1 554 

6388 

Wirt 

1 555 

6331 

M2F 

1 556 

6384 

M8tt 

1 557 

6334 

M3F 

1 560 

6338 

M3R 

‘ 1 561 

6341 

M4F 

1 562 

6342 

MAR 

2170  2656 

2171  2666 

2172  2612 

2173  2658 


/CrlAMGE  KIJMCriOM  MAMES  - SEE  KOCAL  EFIJM  KOK  CODI  MG 
/CODE  FUu  FXY/.  IS  4X  + 8Y*E» 

/CODE  FOH  FY2  IS  8Y*E» 

/CODE  FOR  FE  IS  E 

/'MKERE  X«Y>E  ARE  ASCII  VALUES 

♦FMTABL*3 

8656  /FOPH 

8666  /FSOL 

8612  /FDRU 

2652  /FSET 
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I 


8174  8657  8657  /KTI'I 

817  5 8544  8s44 

/ 

/'C'lA'JuES  11  IITEttrtdPT  SErtVICF.  PAGE 
♦ 8600 

8600  0000  9HEAK.0/0LD  SAv/AC  - (iESEHVE  KUK  dArtUWAP.E  SCALAR 

/ 

♦ 8603 

86(53  38(51  I MTilPi'.DCA  SAyLK/hEACrtEU  VIA  I.\ITi<PX 

8604  6311  SICK 

8605  5654  Ji'lP  1 LC.KS VC /SEUVl CE  ClVCE 

8606  6041  9ACK» rSK 

/ 

♦ 8640 

8640  5576  JMP  I START- 1 /PttOVI  DEU  C1THL-C  WITH  1E«'  kECOVEk 

♦ 8653 

8653  7410  SHP/DELETE  PDP-SS  PAHITT  CHECH 

8654  5870  LCHSVC.CHSVC 

/ 

♦8657 

3657  1003  IA0  SAVACX/oESTUmE  AC  KnOM  1EW  LUC1 

/ 

/ 

/ 

/ S»P«A»3«1'»I»C*  - TAPE  3 

/CHA-1GE  WRITE  IlSThdCTIOl  HEADI1G  <4-<) 

♦ 381  1 

3811  8380  8380  /SP 

3818  0183  0183  /AS 

3813  8411  8411  /TI 

3814  0354  0354  /C. 

3815  6766  6766  /76 

/dI-1  PU.ICH  HT1  - SAHE  AS  DEC-0H- YXT A-PB 
/'WITH  STAkT  ads  CHANGED  TO  3465 
/ 

/DROPPED  II  THIS  VERSI01  - CA.1T  P'JICH  KIELD  1 
/ 

/ 

/ 

/ S.P.A.S.T.I .C.  - TAPE  4 

/MODI KY  STAHTI1G  PROCEDdRE  TO  GIVE  MITIAL  lOTS  TO 

/S0LE.10ID  AID  CLOCK 

♦4365 

4365  6358  BEGI1X>DSSL  /DISABLE  S0LE10ID  AID  SCALAR 

4366  6316  DSCK  /DISABLE  CLOCK  A1DCLEAR  KLAG 

4367  7410  SKP 

4370  4773  1'JKCVH 

/ 

/CEhTAI.M  LAB-8  lOTS  II  MITIAL  RT1  MTERKERE 
/WITH  STEPPMG  MOTOR  lOTS  «8K  A'lD  M4R  (6331  >6348) 
/IK  YO'J  USE  A LAB-8  SYSTEM  THESE  STEPPMG  MOTOR  lOT 
/MUST  BE  CHA.1GE0  M THE  HARDWARE 
/ERASE  0KEE1DMG  LAB-S  lOTS  - 
♦4400 

4400  7000  ^OP 

♦4436 

4436  7000  :10P 

/PDP-5  AID  PDP-8S  ARE  KORBIDDEW 
/PROBLEM  IS  SPACE  LIMITATIONS 
/M  PAGE  000  AND  PAGE  8600 
/ 


4456 


4463 


4523 


4557 


4675 
467  6 
4677 

4700 

4701 

4702 

4703 

4704 

4705 

4706 
4 707 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4720 

4721 

4722 


/HALT  UM  INITIAL  DIALOGUE. PDA-SS 

/t'JO  HOOM  UN  PAGE  2600  KOH 

/MEMOHY  PAHITY  CHECK 

/PDP-BS  IS  PHOBABLY  TOO  SLOW  ANYWAY 

♦ 4456 
7402  HLT 

/ 

/HALT  ON  INITIAL  DIALOGUE.  PDP-5 
/NO  hOO.N  KOH  USE  OF  LOCN 
/0002  AS  JMP  l.NSTHUCTION 
*4463 
7402  HLT 
/ 

/THESE  COrtPUTErtS  COULD  BE  USED 
/IF  THE  BK  OPTION  IS  DHOPPED 
/BY  (BAKING  USE  OF  LOCNS 
/0167-0175  ON  PAGE  0000 
/ 

♦ 4523 

7200  CLA  /PATCH  OUT  I NI  T 
/ 

/SET  riUFKEK  LI/iIT  ON  INITIALI/N 

♦ 4557 

4673  3UFE.ND-2 
/ 

/ 

/ 

/ S • P • A • S • T • I • C • ~ TAPE  5 

/F3ET  hOUTINE  - SETS  TI.BE  AND  COUNT  LINITS 

/AHGU>iENTS  = ( TL.SL.MI  ) 

/TL=PHESET  TIME  LIMIT. CLOCK  UNITS 
/3L=?HESET  COUNT  LIMIT 
/MI=M0T0H  pulse  I.NTEKOAL.CLOCK  UNITS 
/2EK0  AKGS  AHE  IG.NOKED 
/NEG  AKGS=EMKOM 
/CLOCK  U.NIT=l-300TH  SEC 
/ 

♦ 4675 
8UFE.ND=. 

4540  AKGINT.PUSHJ  / GET  ANOTHEk  AKGUMENT 
1343  AHG 

5541  POPJ  / NO  AKG.  HETUH.N  WITHOUT  SKIP 

4453  IiNTSGN.  INTEGk  / ENTkY  FOri  FIHST  AHG 

7450  SNA 

1045  TAD  FLAC+1 

7650  SNA  CLA 

5541  POPJ  / AHG=0.  KETUHN  WITHOUT  SKIP 

1044  TAD  FLAC 
1346  TAD  M27 
7640  S2A  CLA 

4566  EHHOft  /AHG  EXCEEDS  2 TO  23HD  lAPPROX  BE6> 

1045  TAD  FLAC*1 
7710  SPA  CLA 

4566  ERROR  / ARG»*.  ERROR  MSG 
4451  NEGATE  / AHG  ♦.  MAKE  IT  - 
7001  I AC 

5541  POPJ  / SKIP  INSTH  ON  RETURN 
/ 

4540  FSET.PUSHJ  / FSET  STARTS  HERE 
4700  INTSG.N 

5327  JMP  SLI.N  / TL-0.  IGNORE  IT 
4352  JMS  R.NCH 


14 


r 


r 


L 


4723 

4543 

P'JSHF 

4724 

0344 

FLAG 

4/26 

4644 

POpF 

4726 

6315 

TIMELM  / SET 

TI  ME  LI  Ml r 

4727 

4640 

SLIN.PUSHJ 

4730 

4675 

ARG I NT 

4731 

5340 

JMP  MI  I N / 

SL=0.  IGNORE  IT 

4732 

4750 

JMS  I LDIV2 

4733 

4352 

JMS  HNCH 

4 734 

4643 

PJSHF 

4735 

0044 

Flag 

4736 

4644 

POPF 

4/37 

6311 

COUNTL 

4740 

4540 

Ml  I N.PUSHJ 

4/41 

46/6 

ArGINT 

4742 

5536 

RETURN 

4/43 

1346 

TAD  FLAC+2 

4744 

3747 

OCA  I OMSPO  / 

Ml  IS  SINGuE  PREC 

4746 

6536 

REI'UrN 

4 /46 

7761 

M2/.-27 

4747 

5372 

LMSPD.MSPEED 

4750 

6757 

LDI V2.D1 V2 

4751 

6370 

LRN.RUN 

4752 

0000 

RNCR.0  ✓ CHECK  timer  rUv 

STATUS 

47  53 

1751 

TAD  I LRN 

4754 

7650 

SNA  CoA 

4755 

4566 

ERROR  / MUST 

BE  OFF  WHEN 

CHANGI NG 

4/56 

5752 

JMP  1 RNCH 

LIMITS 


4767  4453 

4760  7510 

4761  4566 

4762  1120 

4763  7740 

4764  5361 

4765  1371 

4766  4542 

4767  1046 

4770  5541 

4771  5112 

4772  5033 

4773  7300 

4774  4772 

4775  6314 


/RSTriY  TO  KOPH  KOMCTIOM 
/ 

/Fupa<0)  - kead  sc.  im  wi  rHoijr  stoppimg  hem 

/FOPiill)  - STOP  sc.  T/i.  THE'J  READ  T^E^! 

/F0PR<2)  - RESET  A^D  START  SC.  TM 

/FOPR(3)  - REIUH;^  TIMER  STATUS.-  FOR  HI  CT  HATE. 

/ PI  FOR  TIMER  HUMMIMG.  ♦ FOR  TIMER  STOPPED  FORMALLY. 

/F0PR(4)  - RETURM  MOTOR  STATUS  - INTEGER  0 VHrU  15 
/ 0 FOR  ALL  MOTORS  STOPPED 

/ ADD  I FOR  MTR  1 HU.VMIMG.  2 FOR  MTR  2 HIH^HG.  4 FOR  MTR  3 

/ RU:^MI.<G.  8 FOR  MTR  4 RUMMI’gG 

/F0PR<5)  - STOP  ALL  MOTORS.  RETURM  FOPR»0 

/ USE  FOPR<5>  TO  INITIALIZE  SPASTIC  PROGRAMS  IN  CASE 

/ SYSTEM  RAD  BEEN  STOPPED  WITH  A MOTOR  RUNNING 

/ OTHERWISE  THAT  MOTOR  WILL  RESTART  WHENEVER  CCF  IS  EXECUTED 

/ 

FOPR. INTEGR 
SPA 

ERROR  / NEGATIVE  ARG 

TAD  M5 

SMA  S?A  CLA 

JMP  .-3  / ARG  EXCEEDS  5 
TAD  BRANCH 
PUSHA  / SAVE  ADS 
TAD  FLAC^2 
POPJ  t BRANCH  OUT 
BRANCH. XKOPR 
/ 

SOLNO 

NURCVH.CLA  CLL  / RESPONSE  TO  CNTRL-C  OR  RESTART  AT  200 

JMS  I .-2 

DSCK 


IS 


! 


^776  5777  JMP  I .+l 

nm  274P1  rtECOyK  / CKA'JGE  TU  760H  TO  JU«1=  TU  iJISC  MO-giTOK 

/'JUTE  THAT  SUCH  A CHANCE  AEEECTS  HESTAHT  AT  P'SOf'  As  ,JELu 

/AS  C'JTHL-C  rtEyBOAHD  SIGNAL 

/IM  SUCH  EVENT  USE  27A0  AS  «ESTArtT  ADS  AND 

/rtEMEMHEH  THAT  HARDxAME  MAT  NOT  HE  INITIALI-CEU 

/ 

/ 

/ 

/ S.p. A.S. T* I .C.  - TAPE  6 

/HESET  AND  START  SCALAri  AND  TIiNER 

/THE  ONE-BIT  PRESCALAR  BA  SCALAR  DATA  BREAKS 

/IS  NOT  RESET.  ERR0r=0» 0 . - 1 » Oh  +I  ON  TOTAL  COUN 

/THIS  ERROiJ  is  I NSIuNIMCANT  AND  CANCELS  OUT 

/OVER  A NUiNBER  OF  INTENSITY  UETEHM I NA  T 1 0 N5  • 

/ 

♦ 5000 

5000  0000  RESTRT.0 

5001  170A  TAD  I LOCRUN 

5002  7710  SPA  CLA 

5003  4566  ERROR  / HESTRT  CANNOT  BE  CALLED  AFTER  HI  CT  RATE 

5004  6002  IGF  / (jAiTIL  RUN  IS  CLEARED  BY  FSOL<0) 

5005  4543  PUSHF 

5006  6311  LCUL.COUNTL 

5007  4544  POPF 

5010  5360  OCOUNT. COUNT 

5011  4543  PUSHF 

5012  6315  LTIL.TI HELM 

5013  4544  POPF 

5014  53  64  LTiFiE.TIiNE 

5015  3704  DCA  I LOCRiJN 

5016  3622  DCA  I LBREAK 

5017  6312  CCF/ENABLE  CLOCK  AND  SCALAR 

5020  6001  ION 

5021  5600  Ji’iP  I rESTRT 

5022  2600  LBREAK. BREAK 

/ 

/FSOL-OPEN.CLOSE.OR  READ  SOLENOID 
/ARG=0  CLOSE 
/ARG=1  OPEN  IT 

/ARG=2  READ  IT  BUT  DON'T  CHANGE  IT 

/IN  ANY  EVENT.  SOLENOID  VALUE  IS  RETURNED 


5023 

4453 

FSOL. INTEGR 

5024 

7110 

CLL 

RAh 

5025 

7640 

SiA 

CLA 

5026 

5231 

JMP 

.♦3 

5027 

7004 

RAL 

5030 

4233 

.IMS 

SOL.ND 

5031 

1247 

TAD 

SOLVAL 

5032 

5323 

JMP 

DCFL2 

/ 

/SOLENOID  POSITIONING  ROUTINE 
/ENTER  AC«0  OH  ’ FOR  CLOSED 
/OR  OPEN  SOLENOID 
/ 

5033  0000  SOLND.0 

5034  7450  SNA 

5035  5241  JMP  .♦4 

5036  6351  E.NSL  / AC-1.  OPEN  SOLENOID 

5037  6310  CCF  / ALSO  ENABLE  CLOCK  AS  HI  CT  RATE  PROTXN 

5040  5244  JMP  .F4 

5041  6352  OSSL  / AC-0.  CLOSE  SOLENOID 

«. 


I. 


r T 


*. 


1 


5042 

7001 

I AC 

5043 

3704 

UCA  I LOCriU.M  / Clear  hi  UT  RAIE  rLAG 

5 044 

3247 

OCA  SuLOAL  / SAVE  AC 

5045 

3622 

DCA  I EBrEAK 

5046 

5633 

JMP  I SOLMD 

■sftin 

0000 

SOLOALiP  / 5 1'URE  KOR  KSUL<2) 

/ 

/ THE  KLWG  RT.MS  ArE  OM  IHE  SAME  PAG 

/ AMD  ARE  MOVED  IK  RESTRT  IS  MOVED 

/ 

/SCALAR  AMD  timer  READ  OPEHATIOMS 
/SCALAR  CO.MTEMTS  PLACED  AT  S’»  TIMER  AT  T 
/ 

/Kl-STOP  THEM  KIrST 

/K1  DOES  MOT  CLEA».  MEG  RUN  KLAG 

5050 

270''l 

Kl^ISi  I LOCrUM 

/MERGE  WITH  F0»DYMA;HC  READ 

5051 

1302 

KP»TAD  SCKODE 

5052 

3061 

DCA  ADD 

5053 

4540 

PUSHJ 

5054 

1437 

GSl 

5055 

6002 

10K/FREE2E  COU.MT  + TIME 

5056 

4407 

KEMT 

5057 

0610 

KGET  I LCOUMT 

5060 

2606 

FSUB  I LCOL 

5061 

7000 

FMOh 

5062 

6430 

KPUT  I PTl 

5063 

.3000 

FEXT 

5064 

1303 

TAD  TMKODE 

5065 

3061 

DCA  ADD 

5066 

4540 

PUSHJ 

5067 

1437 

GSl 

5070 

4407 

KEMT 

5071 

0614 

KGET  I LFIME 

5072 

2612 

KSUB  I LTIL 

5073 

7 000 

FiMOR 

5074 

6430 

KPUT  I PTl 

5075 

0000 

FEXT 

5076 

6001 

lOM 

/ 


/MERGE  WITH  F3*  TIMER  STATUS  CHECK 
/ 


5077 

1704 

K3.TAD  I LOCRU.M/SET  KU.MCTION  SGM 

-.0.OR+ 

5100 

3045 

DCA  KLAC+l/TO  COINCIDE  WITH  SIGN 

OK  RUM 

5101 

5323 

JMP  DCFL2 

5102 

2347 

SCK0DE»2347/  PACKED 

5103 

2447 

TMK0DE»2447/  ASCII 

5104 

5370 

LOCRU.M/RU.M 

/ 

/KTIM-RUN  SCALAR  AMD  TIMER 
/FOR  PRESET  COUNT  OH  TIME 
/INTERVAL. THEM  READ 
/ 

5105  4200 

5106  7120 


/ MOTE 

/ 

/NEITHER  K0PR(2)  OR  FTIM(.««>  OPEMS  THE  SOLEMOIO 
/THIS  MUST  BE  DOME  SEPARATELY  BY  FSOL< 1 ) 

/ALSO>  THESE  ROUTIMES  MAY  BE  USED  WITH  SOLEMOID 
/CLOSED  KOR  TIME  DELAY  WITHOUT  COUMTIMG 
/ 

KT1M»JMS  RESTRT 

CLL  CML  / DISPLAY  LINK  - 1 IN  FTIM  WAIT 


i 

j 


i 


I 

i 

J 

1 

i 


I 


\ 


I 


17 


-fp 


5107  1704  TAD  I LOCHllM 

5110  7650  S\IA  CLA 

5111  5307  JMP  .-2/VlAIT  FOR  PHKSET 

/TABLE  FOR  FOPR 

/DU  ^OT  CrlA.^OE  SEQUENCE  OF  LOC.XIS  <F0PR-1  TO  XFOPH  + 5 

5112  5251  XFOPR.JMP  F0 

5113  5250  J«P  FI 

/ 

/F2.  RESET  AND  START  T I MEr -SCALAR.  RETURN  STATUS 

5114  4200  JMS  RESTRT 

5115  5277  JMP  F3 

5116  5325  JMP  F4 

/F5  - STOP  ALL  MOTORS 
6117  3347  F5.DCA  STEPl 

5120  3351  DCA  STEP2 

5121  3353  DCA  STEP3 

5122  3355  DCA  STEP4 

5123  3046  UCFL2.DCA  FLAC+2 

5124  5536  RETURN 

/CRECK  MOTOR  STATUS 
/F0PR(4)  ROUTINE 

5125  3046  F4.UCA  FLAC+2 

5126  1355  TAD  STEP4 

5127  4337  JMS  MCHK 

5130  1353  TAD  STEP3 

5131  4337  JMS  MCRR 

5132  1351  TAD  STEP2 

5133  4337  JMS  MCHK 

5134  1347  TAD  STEPl 

5135  4337  JMS  MCKR 

5136  5536  RETURN 

5137  0000  MCHK. a / CRECK  1 MOTOR.  SAUE  STATUS  AT  FLAC+2 

5140  7100  CLL 

5141  7640  SEA  CLA 

5 142  7020  CML  / SET  LINi<=l  IF  RUNNING 

5143  1046  TAD  FLAC+2 

5144  7004  RAL 

5145  3045  UCA  FLAC+2  / SAOE  STATUS  AT  BIT  11 

5146  5737  JMP  I MCHK 

/ 

5147  0000  STEPl. 0/MOTOR  1 

5150  0000  0 

5151  0000  STEP2. 0/MOTOR  2 

5152  0000  0 

5153  0000  STEP3. 0/MOTOR  3 

5154  0000  0 

5155.  0000  STEP4. 0/MOTOR  4 

5156  0000  0 

/INCREMENT  A DOUBLE  PRECISION  NUMBER 
/FOR  USE  ONLY  BY  CKSVC 

5157  0000  OBLINC.0 

5160  1757  TAD  I DBLINC 

5161  3374  DCA  TDBl 

5162  7101  CLL  lAC 

5163  1374  TAD  TDBl 

5164  3375  UCA  TUBl+1 

5165  2357  ISZ  DBLINC 

5166  2775  ISZ  I TDBl+1 

5167  5757  JMP  I DBLINC 

5170  2774  ISZ  I TDBl  / I.NCRT  HI  BITS 

5171  5757  JMP  I DBLINC 

5172  7020  CML  / SET  LINK  IF  HI  BITS  OVERFLOW 


i 


] 


5 


5173 
5 17^ 
5175 


52  MB 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5210 

5211 

5219 

5213 

5214 

5215 

5216 

5217 

5220 

5221 
5922 
5223 
5924 

5225 

5226 

5227 

5930 

5931 

5232 

5233 

5234 

5235 

5236 

5237 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5250 

5251 

5252 

5253 

5254 

5255 


5757  JMH  I U8LIMC 
0000  TDB1.0 
0000  0 
/ 

/ 

/ 

/ 

/ 5»F»A»5»T»I»C*  * TAPE  7 

/EDSy  HOrjTlME 

/I'JITIATES  STEPPING  MUTUrt  DrtIVES 
/AKGUilEgfS  AT  TKRIJ  A4= 

/'OBrt  UK  STEPS  EOm  I'^OTOliS  1-4 
/ARG'JMEMTS  ARE  +0R-  INTEGERS  OR  O 
/iERO  ARG0ME7T  UEAOES  i*!OTOR  OMAEKECTED 
/A  MOTOR  CA'l  BE  STOPPEU  EUR  CERTAIN  0ML7  BY  E0Pr(5) 
/ 

*5200 

631''  EURU»OSCrt  / DISABLE  CLOCK 

4543  PJSHE  / IMITIAL17,E 
5260  LSTEPl 

4544  POPE  / 3 LOCM  CO'J^TEHS 
5264  LSTEPM 

1263  TAD  MFOIJK 

3267  DC A ArGLIM  / LIMIT  4 ARCS 

4453  LOOP. I MTEGR/ELT  PT  AC  TO  igiEGER 

7450  SVA 

1045  TAD  ELAC+1 

7650  S.'OA  CLA 

5293  JMP  /lADC 

1045  TAD  ELAC+1 

/710  SPA  CLA 

5930  JMP  MADC 

4451  ,MEGATE/ARG=  + . MAKE  IT  - 
1666  TAD  1 GilOT 
2266  IS,i  GTIOT 
5232  JMP  SETIOT 

2266  'ADC.ISi  GTIOT  / ELT  PT  AC  = 0.  IG.MORE  IT 
2266  IS4  GTIOT 

2265  ISi.  PTIOT 

2264  IS2  LSTEPM 
5242  JMP  5JMP 

2266  MADC.IS-C  GTIOT  /ELT  PT  AC  = - 
1666  TAD  I GTIOT 

3665  SETIOT. DCA  I PTIOT/STORE  MOTOR  lOT 
2266  IS/.  GTIOT 

2265  ISi.  PTIOT 

1045  TAD  ELAC  +1 
3664  DCA  I LSTEPM 
2264  ISZ  LSTEPM 

1046  TAD  ELAC+2 

3664  DCA  I LSTEPM/STORE  PULSE  COUMT 
2264  ZJMP. ISZ  LSTEPM  / DOUBLE  PKEC  I MTEGER 
9267  ISZ  ARGLIM 
7410  SKP 

5252  JMP  MDLY/4TH  ARG  DOME 
4540  PUSHJ/MEXT  ARG  TO  ELT  PT  AC 
1343  AKG 

7410  SKP  / ARG  LIST  EXHAUSTED 
5207  JMP  LOOP 

1372  MDLY.TAD  MSPEED  / SET  DELAY  84 
3371  DCA  MTKT  / MEXT  MOTOR  STEP 
3754  DCA  I LBRK 
6312  CCE  / EMABLE  CLOCK 


T 


5356 

6001 

lOM 

5857 

5536 

riETUrt.'J 

J 

5260 

5147 

f 

LSTE81>STEP1 

5261 

5774 

LCr<TBL>CKTBL 

5362 

1553 

LMIOTB. lOTBU 

5263 

7 774 

i«!KOlJri.  -4 

5264 

5147 

LSTEP.M/STEl^l  / TeirlEE 

5265 

5774 

PTIOT.CttTBL  / VArilABLE 

5266 

1553 

GTIOT.IOTBL  / POlMTErtS 

5267 

0000 

Artb'LIM»0 

/ 

/CLOCK  IMTEHrtlJPT  SErtOICE 
/IvlTEKhiJPT  PATE  300  r(^ 
/GlyE'J  FIRST  PRIUKiTr 

5270 

1754 

CKSOCiTAO  I u3rtK/GET  SCALErt  DATA  BrtEAK  COUMT 

5271 

3357 

DCA  TCK 

5812 

37  54 

DCA  1 LBrlK/ziEnO  TriE  SCALEm 

5873 

1357 

TAD  TCK 

5274 

0101 

AID  P7700 

527  5 

7640 

S5A  CLA/TEST  FUR  HIGH  RATE 

587  6 

5347 

J>1P  HIKT 

5277 

6312 

CFLG.CCF/EMA9LE  CLOCK  A.'gD  SCALEH 

5300 

1370 

TAD  «0^ 

5301 

7 640 

SiA  CLA/SOFTn/AHE  SC ALE«- T 1 «Ert  HH^^IMG? 

5302 

5317 

JMP  MTRCHK/MO 

5303 

7100 

ClL 

5304 

1357 

TAD  TCK 

5305 

1362 

TAD  CO'J'JT+2 

5306 

3362 

DCA  COU'JT+2 

5307 

7430 

Si,L 

5310 

2361 

I Si  CO'J.Ml  + 1 

531  1 

7410 

SKP 

5312 

2370 

I Si  rtU\J/SCALS“.  LlfilT  REACHED 

5313 

4756 

JMS  I LDBLI/IMCRT  TIME  VALUE 

5314 

5365 

TIME+1 

5315 

7430 

SiL 

5316 

2370 

I Si  MiJM/TIMER  limit  REACHED 

5317 

2371 

MTRCHK.ISi  MTET/MOTOR  PULSE  DUE? 

5320 

5755 

JMP  I LBACK/MO 

5321 

1378 

TAD  MSPEED/TES 

5322 

3371 

DCA  MTKT 

5323 

1263 

TAD  MFOUK 

5324 

3357 

DCA  TCK 

5325 

1373 

TAD  LMIKT 

5326 

3335 

DCA  LM-gKT 

5327 

1374 

TAD  LMIIOT 

5330 

3375 

DCA  LM.'IIOT 

5331 

1735 

MTLOOP.TAD  I LM^gKT/MOTOrt  PULSE  LOOP 

5332 

7650 

SMA  CLA  ‘ 

5333 

5341 

JMP  ^OPLS/.^TH  MOTOR  IDLE 

5334 

4756 

JMS  I LDBLI/IMCRT  MOTOR  STEP  COUMT 

5335 

5147 

LMMKT# STEP I / VARI ES 

5336 

1775 

TAD  I LMMIOT 

5337 

3340 

DCA  .'^l 

5340 

7000 

MOP/MOTOR  PULSE  lOT  i 

5341 

2375 

MOPLS/ISZ  LMiMIOT  ' 

5342 

2335 

I SZ  LMMKT 

5343 

2335 

I SZ  LMMKT 

5344 

2357 

ISZ  TCK/COUMT  4 MOTORS 

5345 

5331 

JMP  MTLOOP 

5346 

5755 

JMP  I LBACK/  RETURM  TO  IMTRPX  j 

5347 

6352 

KIKT»DSSL/CUOSE  SOUEMOlU 

5350 

3776 

DCA  I LSOLV 

5351 

1347 

TAD  HIKT/RATE  EXCEEDS  3H  KRZ 

5352 

3370 

DCA  RlJi^/SET  ELA(3  'JEGATIWE 

5353 

5277 

Ji*!?  CKLG/GO  SVC  MOTORS 

5354 

8600 

LBRK> BREAK 

5355 

2606 

LBACK#BACK 

5356 

5157 

LDBLl>DBLIiMC 

5357 

0000 

TCK.0 

5360 

8000 

COO.\)T.8000  / SOKTWAHE  SCALER 

5361 

6000 

6000  / SET  CO'JMT  HIGH  - VALUE  AT  LOAD  TIME 

5362 

0000 

0 

5363 

0000 

0/4  word 

5364 

0027 

TIME.27/S0KT  WARE  TImEH 

5365 

0000 

0 / DO  .^OT  CHA^JGE  EXPMT 

5366 

0000 

0 

5367 

0000 

0 / liEQD  ay  4 WORD 

5 37  0 

0001 

RIJ.W.  1/SOKTWArE  SC-TM  RU.W  IVDICAiOH 
/ SET  0 WHEM  rUWaII  WG 

/ SET  1 OH  2 WHEW  STOPPED 

/ SET  large  weg  iwtegeh  <dssl)  kor  xs  ct  rate 

y 

5371 

7777 

/ 

MTKT.-l  /VARIES 

5378 

7777 

MSPEED.-l  / SET  BY  KSET-HI  SPEED  IW  EKEECT  AT  LOAD 

5373 

5147 

LM1KT>STEP1 

5374 

5774 

LMlIOT.CKTBL 

5375 

5774 

LM W I OT»CKTBL/ VARIES 

5376 

5047 

LSOLV^SOLVAL 

/ 

/ 

/ 

/ S.P.A.S«T.I .C*  - TAPE  H 

/TABLE  OE  iMOTOR  lOTS  WITH  PROPER  DIRECTIOW  CHOSEW 
*5774 

5774 

7000 

CKTBL#WOP  / MOTOR  1 

5775 

7000 

•WOP  / MOTOR  2 

5776 

7000 

WOP  / MOTOR  3 

5777 

7000 

WOP  / MOTOR  4 
/ 

/IWTERRUPT  RESPONSE  - REACHED  EROM  LOCW  2 
*6172 

6172 

3003 

IWTRPXjDCA  SAVACX/WEW  save  AC  LOCW  USED 

6173 

7010 

RAR 

6174 

5775 

JMP  I . + 1 

6175 

2603 

I.WTRPT 

/ 

/COUNT  AND  TIME  LIMITS 
*6311 

6311 

0030 

COUNTL>30  / COUNT  LIMIT  SET  AT  1000  AT  LOAD  TIME 

6312 

7777 

7777 

6313 

7014 

7014 

6314 

0000 

0 

6315 

0027 

TIMELM«27  / TIME  LIMIT  SET  AT  4096  SEC  AT  LOAD  TIME 

6316 

7324 

7324 

6317 

0000 

0 

6320 

0000 

0 

/ 

*PRNT8-1 

7 526 

5757 

JMP  I DLIB  /LIBRARY  EXIT>  4K 
*OLIB 

7 557 

4773 

NURCVR  /4K  POINTER  (CLEARS  HARtWARE) 

21 


/TriE  KOLLOWIMG  STUFF  IS  FOrt  8K  OMLT.  TERi'II'JATE 
/HSHE  WITH  DOLLAri  SIGM  FOR  4K. 

/ 

/ 

/ 

/ S.P.A.S-T.I .C.  - TAPE  9 

/PATCHES  FUfi  8H  OVEHLAT  (O'MIT  KUH  4K) 

FIEL.U  1 

♦ LI  ’OE0+4 

0104  4023  4023  / S 

010b  2001  2001  /PA 

0106  2324  2324  /ST 

010/  1103  1103  /IC 

0110  S467  S467  /.7 

0111  6h40  6640  /6 

♦ HLIB 

012S  4773  ^UHCVrt  / JEw  EXIT  FHOM  LIBHAkY  (CLEAHS  HAHU//AHE) 

FIELD  0 

♦ ULI  B 

/bb/  PIP"  DLI88  ZrtESTOnE  AS  I M 8K  CJUEHLAY  (CHAMGED  EAhLiErt  iHIS  PATCH) 
/ 

/ 

/ 


ADD 

0061 

ij  1 1 0 r 

5266 
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